10 REM CHANGE RENT KEYS ARE P T C H M NUMBERS PLUS MINUS AND Q
12 REM TWO PROPERTIES PER MONOPOLY
14 REM YOU CAN SET THE AMOUNT OF MONEY YOU RECEIVE EACH TIME YOU MOVE
16 REM YOU CAN SET THE AMOUNT OF MONEY YOU RECEIVE FOR PASSING GO
18 REM GO IS UPPER LEFT HAND CORNER
20 REM PROGRAM OCCASIONALLY ASKS YOU IF YOU WANT TO REDRAW THE BOARD
22 REM IN CASE THE GRAPHICS HAVE GOTTEN MESSED UP FOR SOME REASON
100 DIM PD(40,11)
110 DIM BC(40,8)
120 DIM SC(40,2)
130 DIM GP(145)
140 DIM NS$(40)
150 DIM MN$(11)
200 GOSUB 12000
300 PAINT (3,2),9,8
998 REM MAIN PROGRAM
1000 FOR I=1 TO NP
1005 PT=0
1010 Z=PP(I)
1012 IF Z=0 THEN 1500
1015 V=PD(Z,9)
1020 PAINT (30,20),1,8
1025 PAINT (30,20),0,8
1030 LOCATE 4,5
1040 PRINT PN$(I);" IS ON ";NS$(Z)
1050 LOCATE 5,5
1060 PRINT PN$(V);" OWNS IT"
1070 LOCATE 6,5
1080 PRINT"YOU HAVE $";PM(I)
1090 FOR J=1 TO 11
1100 W=J+7
1110 LOCATE W,5
1120 W=J+64
1130 PRINT CHR$(W);") ";MN$(J)
1160 NEXT J
1170 LOCATE 20,5
1180 PRINT"ENTER OPTION";
1182 X$=INKEY$
1184 IF LEN(X$)=0 THEN 1182
1186 X=ASC(X$)-64
1190 IF X<1 OR X>11 THEN 1182
1192 IF X=10 AND PT=0 THEN 1200
1194 IF SF=1 THEN 1200
1196 Q=I*200
1198 SOUND Q,2
1200 LOCATE 21,5
1202 PRINT"                      "
1204 LOCATE 21,5
1210 IF RD>0 AND X=11 THEN PRINT"YOU OWE RENT"
1215 IF RD>0 AND X=11 THEN 1170
1220 IF X=6 AND PT=0 THEN PRINT"YOU DON'T OWE ANY RENT"
1225 IF X=6 AND PT=0 THEN 1170
1230 IF X=10 AND PT=1 THEN PRINT"YOU ALREADY MOVED"
1235 IF X=10 AND PT=1 THEN 1170
1240 IF X=11 AND PT=0 THEN PRINT"YOU HAVE NOT MOVED"
1245 IF X=11 AND PT=0 THEN 1170
1250 IF X=4 AND PT=1 THEN PRINT"BUILD BEFORE YOU MOVE"
1255 IF X=4 AND PT=1 THEN 1170
1260 IF X=11 THEN 1500
1270 IF X=0 OR X>10 THEN 1170
1280 IF X=10 THEN PT=1
1285 LINE (28,18)-(280,180),8,B
1290 PAINT (30,20),1,8
1300 PAINT (30,20),0,8
1310 ON X GOSUB 3000,4000,5000,6000,7000,8000,9000,10000,11000,2000
1320 LOCATE 21,5
1330 PRINT"RETURN TO CONTINUE";
1340 INPUT Z$
1342 IF SF=1 THEN 1350
1344 Q=I*200
1346 SOUND Q,2
1350 GOTO 1010
1500 NEXT I
1510 NT=NT+1
1515 IF NT>10 THEN NT=0
1520 IF NT<10 THEN 1000
1530 LOCATE 20,5
1540 PRINT"DRAW BOARD (Y/N)";
1550 INPUT Z$
1560 IF Z$="Y" THEN 12402
1570 GOTO 1000
1590 NT=0
1600 FOR J=1 TO NP
1610 Z=PP(J)
1620 X=BC(Z,1)
1630 Y=BC(Z,2)
1640 W=8+J
1650 PAINT (X,Y),W,8
1660 NEXT J
1670 FOR J=1 TO 40
1680 IF PD(J,9)=0 THEN 1730
1690 X=BC(J,3)
1700 Y=BC(J,4)
1710 W=8+PD(J,9)
1720 PAINT (X,Y),W,8
1730 IF PD(J,10)=0 THEN 1770
1740 X=BC(J,7)
1750 Y=BC(J,8)
1760 PAINT (X,Y),7,8
1770 IF PD(J,7)=2 THEN 1840
1780 X=BC(J,5)
1790 Y=BC(J,6)
1800 IF PD(J,7)=3 THEN W=6
1810 IF PD(J,7)=4 THEN W=2
1820 IF PD(J,7)=5 THEN W=4
1830 PAINT (X,Y),W,8
1840 NEXT J
1850 GOTO 1000
1998 REM MOVE
2000 RANDOMIZE TIMER
2010 D=2+(INT(RND*11))
2015 LOCATE 4,5
2020 PRINT PN$(I);" ROLLED A";D
2025 IF MM>0 THEN 2055
2030 Z=ABS(MM)
2035 PM(I)=PM(I)+Z
2040 LOCATE 5,5
2045 PRINT"YOU RECEIVE $";Z
2050 GOTO 2080
2055 Z=MM*D
2060 PM(I)=PM(I)+Z
2065 LOCATE 5,5
2070 PRINT"YOU RECEIVE $";Z
2080 Z=PP(I)
2090 FOR J=1 TO D
2100 X=BC(Z,1)
2110 Y=BC(Z,2)
2120 PAINT (X,Y),0,8
2130 FOR K=1 TO NP
2140 IF K=I THEN 2170
2150 U=8+K
2160 IF PP(K)=Z THEN PAINT (X,Y),U,8
2170 NEXT K
2180 Z=Z+1
2190 IF Z=41 THEN Z=1
2200 X=BC(Z,1)
2210 Y=BC(Z,2)
2220 U=8+I
2230 PAINT (X,Y),U,8
2235 IF SF=1 THEN 2252
2240 Q=30*(Z+1)
2250 SOUND Q,2
2252 FOR K=1 TO 700
2254 NEXT K
2260 NEXT J
2270 Z=PP(I)+D
2280 IF Z<41 THEN 2350
2290 Z=Z-40
2300 LOCATE 6,5
2305 PRINT"COMPLETE TRIP AROUND BOARD"
2310 LOCATE 7,5
2315 IF BG>0 THEN 2335
2320 PRINT"YOU RECEIVE $";ABS(BG)
2325 PM(I)=PM(I)+(ABS(BG))
2330 GOTO 2350
2335 BG=BL+(INT(RND*((BH-BL)+1)))
2340 PM(I)=PM(I)+BG
2345 PRINT"YOU RECEIVE $";BG
2350 PP(I)=Z
2360 LOCATE 8,5
2370 PRINT"YOU ARE ON ";NS$(Z)
2380 RD=0
2390 W=PD(Z,9)
2400 LOCATE 9,5
2410 PRINT PN$(W);" OWNS IT"
2420 LOCATE 10,5
2430 IF W=0 THEN PRINT"THE PRICE IS $";PD(Z,1)
2440 IF W=0 OR W=I THEN 2490
2450 IF PD(Z,10)=1 THEN 2490
2460 RD=PD(Z,7)
2470 RD=PD(Z,RD)
2480 PRINT"THE RENT IS $";RD
2490 LOCATE 11,5
2500 PRINT"YOU HAVE $";PM(I)
2990 RETURN
2998 REM SELL PROPERTY TO PLAYER
3000 LOCATE 4,5
3010 PRINT PN$(I);" HAS $";PM(I)
3020 LOCATE 5,5
3030 PRINT"SELL PROPERTY";
3040 INPUT Z$
3050 Z=0
3060 FOR J=1 TO 40
3070 IF NS$(J)=Z$ THEN Z=J
3075 IF LEFT$(NS$(J),3)=Z$ THEN Z=J
3080 NEXT J
3090 IF PD(Z,9)=I THEN 3130
3100 LOCATE 6,5
3110 PRINT"YOU DON'T OWN ";Z$
3120 GOTO 3990
3130 IF PD(Z,7)=2 THEN 3170
3140 LOCATE 6,5
3150 PRINT"THERE IS A BUILDING ON IT"
3160 GOTO 3990
3170 LOCATE 6,5
3180 PRINT"TO PLAYER";
3190 INPUT W$
3195 W=0
3200 FOR J=1 TO NP
3210 IF PN$(J)=W$ THEN W=J
3220 NEXT J
3222 IF W>0 THEN 3230
3224 LOCATE 7,5
3226 PRINT W$;" IS NOT A PLAYER"
3228 GOTO 3990
3230 LOCATE 7,5
3240 PRINT"PRICE";
3250 INPUT V
3260 V=INT(ABS(V))
3270 IF PM(W)-V>-1 THEN 3310
3280 LOCATE 8,5
3290 PRINT PN$(W);" DOESN'T HAVE THE MONEY"
3300 GOTO 3990
3310 U=PD(Z,8)
3320 FOR J=1 TO 40
3330 IF J=Z THEN 3350
3340 IF PD(J,8)=U THEN T=J
3350 NEXT J
3360 LOCATE 8,5
3370 IF PD(T,9)=I AND PD(T,7)>2 THEN PRINT NS$(T);" HAS A BUILDING"
3380 IF PD(T,9)=I AND PD(T,7)>2 THEN 3990
3390 LOCATE 8,5
3400 IF PD(Z,10)=0 THEN PRINT"IT IS NOT MORTGAGED"
3410 IF PD(Z,10)=1 THEN PRINT"IT IS MORTGAGED"
3420 PD(Z,9)=W
3430 PM(I)=PM(I)+V
3440 PM(W)=PM(W)-V
3450 LOCATE 9,5
3460 PRINT PN$(I);" HAS $";PM(I)
3470 LOCATE 10,5
3480 PRINT PN$(W);" HAS $";PM(W)
3490 X=BC(Z,3)
3500 Y=BC(Z,4)
3510 S=8+W
3520 PAINT (X,Y),S,8
3990 RETURN
3998 REM SELL PROPERTY TO BANK
4000 LOCATE 4,5
4010 PRINT PN$(I);" HAS $";PM(I)
4020 LOCATE 5,5
4030 PRINT"SELL PROPERTY";
4040 INPUT Z$
4050 Z=0
4060 FOR J=1 TO 40
4070 IF NS$(J)=Z$ THEN Z=J
4075 IF LEFT$(NS$(J),3)=Z$ THEN Z=J
4080 NEXT J
4090 IF PD(Z,9)=I THEN 4130
4100 LOCATE 6,5
4110 PRINT"YOU DON'T OWN ";Z$
4120 GOTO 4990
4130 IF PD(Z,7)=2 THEN 4170
4140 LOCATE 6,5
4150 PRINT"THERE IS A BUILDING ON IT"
4160 GOTO 4990
4170 W=PD(Z,8)
4180 FOR J=1 TO 40
4190 IF J=Z THEN 4210
4200 IF PD(J,8)=W THEN V=J
4210 NEXT J
4220 LOCATE 6,5
4230 IF PD(V,9)=I AND PD(V,7)>2 THEN PRINT NS$(V);" HAS A BUILDING"
4240 IF PD(V,9)=I AND PD(V,7)>2 THEN 4990
4250 U=PD(Z,1)
4260 IF PD(Z,10)=1 THEN U=U\2
4270 PM(I)=PM(I)+U
4280 PRINT"YOU RECEIVE $";U
4290 LOCATE 7,5
4300 IF PD(Z,10)=1 THEN PRINT Z$;" WAS MORTGAGED"
4310 IF PD(Z,10)=1 THEN LOCATE 8,5
4320 PRINT"YOU NOW HAVE $";PM(I)
4330 PD(Z,9)=0
4340 PD(Z,10)=0
4350 X=BC(Z,3)
4360 Y=BC(Z,4)
4370 PAINT (X,Y),0,8
4380 X=BC(Z,7)
4390 Y=BC(Z,8)
4410 PAINT (X,Y),0,8
4990 RETURN
4998 REM SELL BUILDING
5000 LOCATE 4,5
5010 PRINT PN$(I);" HAS $";PM(I)
5020 LOCATE 5,5
5030 PRINT"SELL BUILDING ON";
5040 INPUT Z$
5050 Z=0
5060 FOR J=1 TO 40
5070 IF NS$(J)=Z$ THEN Z=J
5075 IF LEFT$(NS$(J),3)=Z$ THEN Z=J
5080 NEXT J
5090 IF PD(Z,9)=I THEN 5130
5100 LOCATE 6,5
5110 PRINT"YOU DON'T OWN ";Z$
5120 GOTO 5990
5130 IF PD(Z,7)>2 THEN 5170
5140 LOCATE 6,5
5150 PRINT"THERE IS NOT A BUILDING ON IT"
5160 GOTO 5990
5170 PM(I)=PM(I)+PD(Z,6)
5180 LOCATE 6,5
5190 PRINT"YOU RECEIVE $";PD(Z,6)
5200 PD(Z,7)=PD(Z,7)-1
5210 LOCATE 7,5
5220 IF PD(Z,7)=2 THEN PRINT"THERE IS NOT A BUILDING ON IT"
5230 IF PD(Z,7)=3 THEN PRINT"IT HAS A CABIN"
5240 IF PD(Z,7)=4 THEN PRINT"IT HAS A HOUSE"
5250 LOCATE 8,5
5260 PRINT"YOU NOW HAVE $";PM(I)
5270 X=BC(Z,5)
5280 Y=BC(Z,6)
5290 IF PD(Z,7)=2 THEN W=0
5300 IF PD(Z,7)=3 THEN W=6
5310 IF PD(Z,7)=4 THEN W=2
5320 PAINT (X,Y),W,8
5990 RETURN
5998 REM BUILD
6000 LOCATE 4,5
6010 PRINT PN$(I);" HAS $";PM(I)
6020 LOCATE 5,5
6030 PRINT"BUILD ON";
6040 INPUT Z$
6050 Z=0
6060 FOR J=1 TO 40
6070 IF NS$(J)=Z$ THEN Z=J
6075 IF LEFT$(NS$(J),3)=Z$ THEN Z=J
6080 NEXT J
6082 IF Z>0 THEN 6090
6084 LOCATE 6,5
6086 PRINT Z$;" IS NOT A PROPERTY"
6088 GOTO 6990
6090 W=PD(Z,9)
6100 U=PD(Z,8)
6110 FOR J=1 TO 40
6120 IF J=Z THEN 6140
6130 IF PD(J,8)=U THEN V=PD(J,9)
6140 NEXT J
6150 IF W=I AND V=I THEN 6190
6160 LOCATE 6,5
6170 PRINT"YOU DON'T OWN BOTH PROPERTIES"
6180 GOTO 6450
6190 IF PD(Z,7)<5 THEN 6230
6200 LOCATE 6,5
6210 PRINT"IT HAS A MANSION"
6220 GOTO 6450
6230 T=PD(Z,6)
6240 LOCATE 6,5
6250 PRINT"BUILDING PRICE IS $";T
6260 S=PM(I)-T
6270 IF S>-1 THEN 6310
6280 LOCATE 7,5
6290 PRINT"YOU DON'T HAVE ENOUGH MONEY"
6300 GOTO 6450
6310 PM(I)=S
6320 PD(Z,7)=PD(Z,7)+1
6330 LOCATE 7,5
6340 IF PD(Z,7)=3 THEN PRINT"IT HAS A CABIN"
6350 IF PD(Z,7)=4 THEN PRINT"IT HAS A HOUSE"
6360 IF PD(Z,7)=5 THEN PRINT"IT HAS A MANSION"
6370 LOCATE 8,5
6380 PRINT"YOU NOW HAVE $";PM(I)
6390 X=BC(Z,5)
6400 Y=BC(Z,6)
6410 IF PD(Z,7)=3 THEN R=6
6420 IF PD(Z,7)=4 THEN R=2
6430 IF PD(Z,7)=5 THEN R=4
6440 PAINT (X,Y),R,8
6450 LOCATE 9,5
6460 PRINT NS$(Z);" RENT"
6470 LOCATE 10,5
6480 PRINT"TENT    $";PD(Z,2)
6490 LOCATE 11,5
6500 PRINT"CABIN   $";PD(Z,3)
6510 LOCATE 12,5
6520 PRINT"HOUSE   $";PD(Z,4)
6530 LOCATE 13,5
6540 PRINT"MANSION $";PD(Z,5)
6990 RETURN
6998 REM BUY PROPERTY
7000 Z=PP(I)
7010 W=PD(Z,9)
7020 IF W=0 THEN 7060
7030 LOCATE 4,5
7040 PRINT PN$(W);" OWNS ";NS$(Z)
7050 GOTO 7990
7060 LOCATE 4,5
7070 PRINT PN$(I);" IS ON ";NS$(Z)
7080 LOCATE 5,5
7090 PRINT"YOU HAVE $";PM(I)
7100 LOCATE 6,5
7110 PRINT"THE PRICE IS $";PD(Z,1)
7120 V=PD(Z,1)
7130 U=PM(I)-V
7140 IF U>-1 THEN 7180
7150 LOCATE 7,5
7160 PRINT"YOU DON'T HAVE ENOUGH MONEY"
7170 GOTO 7990
7180 PM(I)=PM(I)-V
7190 PD(Z,9)=I
7200 LOCATE 7,5
7210 PRINT"YOU NOW HAVE $";PM(I)
7220 X=BC(Z,3)
7230 Y=BC(Z,4)
7240 T=8+I
7250 PAINT (X,Y),T,8
7990 RETURN
7998 REM PAY RENT
8000 IF RD>0 THEN 8040
8010 LOCATE 4,5
8020 PRINT"YOU DO NOT OWE ANY RENT"
8030 GOTO 8990
8040 Z=PP(I)
8050 LOCATE 4,5
8060 PRINT PN$(I);" IS ON ";NS$(Z)
8070 LOCATE 5,5
8080 PRINT"YOU HAVE $";PM(I)
8090 X=PD(Z,9)
8100 LOCATE 6,5
8110 PRINT PN$(X);" OWNS IT"
8120 W=PD(Z,7)
8130 LOCATE 7,5
8140 IF W=2 THEN PRINT"THERE ARE NO BUILDINGS"
8150 IF W=3 THEN PRINT"THERE IS A CABIN"
8160 IF W=4 THEN PRINT"THERE IS A HOUSE"
8170 IF W=5 THEN PRINT"THERE IS A MANSION"
8180 LOCATE 8,5
8190 PRINT"THE RENT IS $";RD
8200 V=PM(I)-RD
8210 IF V>-1 THEN 8250
8220 LOCATE 9,5
8230 PRINT"YOU DON'T HAVE ENOUGH MONEY"
8240 GOTO 8990
8250 PM(X)=PM(X)+RD
8260 PM(I)=PM(I)-RD
8270 RD=0
8280 LOCATE 9,5
8290 PRINT"YOU NOW HAVE $";PM(I)
8300 LOCATE 10,5
8310 PRINT PN$(X);" NOW HAS $";PM(X)
8990 RETURN
8998 REM MORTGAGE
9000 LOCATE 4,5
9010 PRINT PN$(I);" HAS $";PM(I)
9020 LOCATE 5,5
9030 PRINT"MORTGAGE";
9040 INPUT Z$
9050 Z=0
9060 FOR J=1 TO 40
9070 IF NS$(J)=Z$ THEN Z=J
9075 IF LEFT$(NS$(J),3)=Z$ THEN Z=J
9080 NEXT J
9090 IF PD(Z,9)=I THEN 9130
9100 LOCATE 6,5
9110 PRINT"YOU DO NOT OWN ";Z$
9120 GOTO 9990
9130 IF PD(Z,10)=0 THEN 9170
9140 LOCATE 6,5
9150 PRINT Z$;" IS ALREADY MORTGAGED"
9160 GOTO 9990
9170 W=PD(Z,1)\2
9180 PM(I)=PM(I)+W
9190 PD(Z,10)=1
9200 LOCATE 6,5
9210 PRINT"YOU RECEIVE $";W
9220 LOCATE 7,5
9230 PRINT"YOU NOW HAVE $";PM(I)
9240 X=BC(Z,7)
9250 Y=BC(Z,8)
9260 PAINT (X,Y),7,8
9990 RETURN
9998 REM UNMORTGAGE
10000 LOCATE 4,5
10010 PRINT PN$(I);" HAS $";PM(I)
10020 LOCATE 5,5
10030 PRINT"UNMORTGAGE";
10040 INPUT Z$
10050 Z=0
10060 FOR J=1 TO 40
10070 IF NS$(J)=Z$ THEN Z=J
10075 IF LEFT$(NS$(J),3)=Z$ THEN Z=J
10080 NEXT J
10090 IF PD(Z,9)=I THEN 10130
10100 LOCATE 6,5
10110 PRINT"YOU DO NOT OWN ";Z$
10120 GOTO 10990
10130 IF PD(Z,10)=1 THEN 10170
10140 LOCATE 6,5
10150 PRINT Z$;" IS NOT MORTGAGED"
10160 GOTO 10990
10170 W=PD(Z,1)\2
10180 V=PM(I)-W
10190 IF V>-1 THEN 10230
10200 LOCATE 6,5
10210 PRINT"YOU DON'T HAVE ENOUGH MONEY"
10220 GOTO 10990
10230 PM(I)=V
10240 PD(Z,10)=0
10250 LOCATE 6,5
10260 PRINT"YOU PAY $";W
10270 LOCATE 7,5
10280 PRINT"YOU NOW HAVE $";PM(I)
10290 X=BC(Z,7)
10300 Y=BC(Z,8)
10310 PAINT (X,Y),0,8
10990 RETURN
10998 REM BANKRUPT
11000 W=PM(I)
11010 FOR J=1 TO 40
11020 IF PD(J,9)=I THEN 11040
11030 GOTO 11070
11040 W=W+PD(J,1)
11050 IF PD(J,10)=1 THEN W=W-(PD(J,1)\2)
11060 W=W+(PD(J,6)*(PD(J,7)-2))
11070 NEXT J
11080 LOCATE 4,5
11090 PRINT PN$(I);" NET WORTH IS $";W
11100 LOCATE 5,5
11110 IF W-RD<0 THEN 11140
11120 PRINT PN$(I);" IS NOT BANKRUPT"
11130 GOTO 11990
11140 PRINT PN$(I);" IS BANKRUPT"
11180 FOR J=1 TO 40
11190 IF PD(J,9)=I THEN 11210
11200 GOTO 11350
11210 PD(J,9)=0
11220 X=BC(J,3)
11230 Y=BC(J,4)
11240 PAINT (X,Y),0,8
11250 IF PD(J,7)=2 THEN 11300
11260 PD(J,7)=2
11270 X=BC(J,5)
11280 Y=BC(J,6)
11290 PAINT (X,Y),0,8
11300 IF PD(J,10)=0 THEN 11350
11310 PD(J,10)=0
11320 X=BC(J,7)
11330 Y=BC(J,8)
11340 PAINT (X,Y),0,8
11350 NEXT J
11360 Z=PP(I)
11370 X=BC(Z,1)
11380 Y=BC(Z,2)
11390 PAINT (X,Y),0,8
11400 PP(I)=0
11410 RD=0
11420 FOR J=1 TO NP
11430 IF PP(J)=Z THEN 11450
11440 GOTO 11500
11450 V=PP(J)
11460 X=BC(V,1)
11470 Y=BC(V,2)
11480 U=J+8
11490 PAINT (X,Y),U,8
11500 NEXT J
11990 RETURN
11998 REM SET UP
12000 CLS
12010 PRINT"MONOPOLY"
12020 PRINT"WRITTEN IN GW-BASIC BY ROCHE FAHLANEIGH"
12030 PRINT"FORT COLLINS,COLORADO"
12035 REM ROCHE789 AT AOL DOT COM
12040 PN$(0)="BANK"
12050 PRINT"NUMBER OF PLAYERS (2-5)";
12060 INPUT NP
12070 NP=INT(ABS(NP))
12080 IF NP<2 OR NP>5 THEN 12000
12090 FOR I=1 TO NP
12100 PRINT"NAME OF PLAYER #";I;
12110 INPUT PN$(I)
12120 IF LEN(PN$(I))>7 THEN 12100
12130 PP(I)=1
12140 PM(I)=2000
12150 NEXT I
12198 REM DATA
12200 OPEN "I",#1,"MDATA"
12210 FOR I=1 TO 40
12220 INPUT#1,NS$(I)
12230 INPUT#1,SC(I,1)
12240 INPUT#1,SC(I,2)
12250 FOR J=1 TO 8
12260 INPUT#1,BC(I,J)
12270 NEXT J
12280 FOR J=1 TO 8
12290 INPUT#1,PD(I,J)
12300 NEXT J
12310 INPUT#1,PD(I,11)
12320 NEXT I
12330 FOR I=1 TO 11
12340 INPUT#1,MN$(I)
12350 NEXT I
12352 CLOSE #1
12353 SF=0
12354 PRINT"SOUND OFF (Y/N)";
12355 INPUT X$
12356 IF X$="Y" OR X$="N" THEN 12358
12357 GOTO 12354
12358 IF X$="Y" THEN SF=1
12359 PRINT"FIXED OR RANDOM GO AMOUNT (F/R)";
12360 INPUT X$
12361 IF X$="R" THEN 12369
12362 IF X$="F" THEN 12364
12363 GOTO 12359
12364 PRINT"ENTER AMOUNT (1-9999)";
12365 INPUT BG
12366 IF BG<1 OR BG>9999 THEN 12364
12367 BG=0-(INT(BG))
12368 GOTO 12379
12369 BG=1
12370 PRINT"ENTER LOW AMOUNT (1-9998)";
12371 INPUT BL
12372 IF BL<1 OR BL>9998 THEN 12370
12373 BL=INT(BL)
12374 PRINT"ENTER HIGH AMOUNT (2-9999)";
12375 INPUT BH
12376 IF BH<2 OR BH>9999 THEN 12374
12377 BH=INT(BH)
12378 IF BL=BH OR BL>BH THEN 12370
12379 PRINT"FIXED OR RANDOM MOVE AMOUNT (F/R)";
12380 INPUT X$
12381 IF X$="R" THEN 12389
12382 IF X$="F" THEN 12384
12383 GOTO 12379
12384 PRINT"ENTER AMOUNT (1-1200)";
12385 INPUT MM
12386 IF MM<1 OR MM>1200 THEN 12384
12387 MM=0-INT(MM)
12388 GOTO 12393
12389 PRINT"ENTER MULTIPLIER (1-100)";
12390 INPUT MM
12391 IF MM<1 OR MM>100 THEN 12389
12392 MM=INT(MM)
12393 PRINT"CHANGE RENT (Y/N)";
12394 INPUT X$
12395 IF X$="Y" THEN 12600
12396 IF X$="N" THEN 12400
12397 GOTO 12393
12398 REM BOARD
12400 SCREEN 7
12402 CLS
12404 RR=1
12410 FOR I=1 TO 40
12420 OPEN "R",#1,"BOARD",4
12430 FIELD#1,4 AS DT$
12440 XX=SC(I,1)
12450 YY=SC(I,2)
12460 FOR J=0 TO 145
12470 GET#1,RR
12480 GP(J)=CVS(DT$)
12490 RR=RR+1
12500 NEXT J
12510 CLOSE #1
12520 PUT(XX,YY),GP,PSET
12530 NEXT I
12540 IF NT=10 THEN 1590
12550 RETURN
12598 REM CHANGE RENT
12600 CLS
12605 PRINT"PROPERTY 1   TENT   CABIN  HOUSE MANSION"
12610 LOCATE 2,1
12615 PRINT NS$(1)SPC(5)PD(1,2)SPC(3)PD(1,3)SPC(3)PD(1,4)SPC(2)PD(1,5)
12616 LOCATE 2,12
12618 PRINT"+"
12620 AA=1
12625 BB=1
12630 CC=2
12635 X$=INKEY$
12640 IF LEN(X$)=0 THEN 12635
12645 X=ASC(X$)
12650 IF X=81 THEN 12400
12655 IF X<48 OR X>57 THEN 12725
12660 IF X>48 THEN 12680
12665 IF BB=1 THEN PD(AA,CC)=PD(AA,CC)+100
12670 IF BB=0 THEN PD(AA,CC)=PD(AA,CC)-100
12675 GOTO 12690
12680 IF BB=1 THEN PD(AA,CC)=PD(AA,CC)+(X-48)
12685 IF BB=0 THEN PD(AA,CC)=PD(AA,CC)-(X-48)
12690 IF BB=1 AND PD(AA,CC)>9999 THEN PD(AA,CC)=9999
12695 IF BB=0 AND PD(AA,CC)<1 THEN PD(AA,CC)=1
12700 LOCATE 2,((CC*7)-1)
12705 PRINT"    "
12710 LOCATE 2,((CC*7)-1)
12715 PRINT PD(AA,CC)
12720 GOTO 12635
12725 IF X=67 OR X=72 THEN 12740
12730 IF X=77 OR X=84 THEN 12740
12735 GOTO 12790
12740 LOCATE 2,((CC*7)-2)
12745 PRINT" "
12750 IF X=67 THEN CC=3
12755 IF X=72 THEN CC=4
12760 IF X=77 THEN CC=5
12765 IF X=84 THEN CC=2
12770 LOCATE 2,((CC*7)-2)
12775 IF BB=1 THEN PRINT"+"
12780 IF BB=0 THEN PRINT"-"
12785 GOTO 12635
12790 IF X=45 OR X=61 THEN 12800
12795 GOTO 12830
12800 IF X=45 THEN BB=0
12805 IF X=61 THEN BB=1
12810 LOCATE 2,((CC*7)-2)
12815 IF BB=1 THEN PRINT"+"
12820 IF BB=0 THEN PRINT"-"
12825 GOTO 12635
12830 IF X=80 THEN 12840
12835 GOTO 12635
12840 IF BB=1 THEN AA=AA+1
12845 IF AA=41 THEN AA=1
12850 IF BB=0 THEN AA=AA-1
12855 IF AA=0 THEN AA=40
12860 LOCATE 1,9
12865 PRINT"  "
12870 LOCATE 1,9
12875 PRINT AA
12880 LOCATE 2,1
12885 PRINT"                                        "
12890 LOCATE 2,1
12895 PRINT NS$(AA)
12900 FOR I=2 TO 5
12905 LOCATE 2,((I*7)-1)
12910 PRINT PD(AA,I)
12915 NEXT I
12920 LOCATE 2,((CC*7)-2)
12925 IF BB=1 THEN PRINT"+"
12930 IF BB=0 THEN PRINT"-"
12935 GOTO 12635
13000 END
